home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / sysflags < prev    next >
Text File  |  1995-03-31  |  2KB  |  72 lines
  1. Article 1106 of comp.sys.handhelds:
  2. Path: en.ecn.purdue.edu!noose.ecn.purdue.edu!samsung!usc!snorkelwacker!ira.uka.de!ifistg!ifi!seitz
  3. From: seitz@az3.informatik.uni-stuttgart.de (Steffen Seitz)
  4. Newsgroups: comp.sys.handhelds
  5. Subject: FlagTool
  6. Message-ID: <SEITZ.90Aug25215721@az3.informatik.uni-stuttgart.de>
  7. Date: 25 Aug 90 19:57:21 GMT
  8. Sender: news@ifistg.uucp
  9. Distribution: comp
  10. Organization: IfI, Univ. Stuttgart, W Germany
  11. Lines: 57
  12.  
  13.  
  14. Here is a small program, that should help to customize the system flags
  15. on the HP-48.
  16.  
  17. During its creation, I have discovered a small flaw in conjunction
  18. with long pathnames displayed in the status area and the clock string.
  19. Setting flag -40 in a program overwrites a displayed (long) pathname.
  20. Clearing flag -40 in a program does not clear the part in the status
  21. area, that is used for displaying date and time. In both cases, the
  22. display is adjusted after program termination.
  23.  
  24. Here is the program:
  25. ----------------------------< snip >--------------------------------
  26. %%HP: T(3)A(R)F(.);
  27. @
  28. @ Name    : FlagTool - set/clear system flags interactively
  29. @ Author  : Steffen Seitz, seitz<at>informatik.uni-tuebingen.de
  30. @ Date    : 90-08-23
  31. @ 
  32. @ Pressing a [menu key] toggles the flag, whose number is displayed
  33. @ in the corresponding menu label. A set flag is indicated by a small
  34. @ square near its number.
  35. @ [up] and [down] selects the previous and next group of flags.
  36. @ [Enter] terminates the program.
  37. @
  38. @ ( The 'feeling' of this program is adopted from the 'FCAT' program,
  39. @   that has been designed by HP for the HP-42. )
  40. @
  41. @ Checksum: #F7AAh
  42. @ Length: 494 bytes
  43. @
  44. \<< 1 \-> l
  45.   \<< RCLMENU
  46.       DO
  47.         l DUP 5 +
  48.         FOR f
  49.           f IF DUP 64 > THEN 64 - END NEG DUP \->STR
  50.           f IF 10 < THEN " " + END
  51.           SWAP IF FS? THEN 158 ELSE 32 END CHR +
  52.         NEXT
  53.         6 \->LIST TMENU -1 WAIT
  54.         IP
  55.         CASE
  56.           DUP 11 \>= OVER 16 \<= AND
  57.             THEN DUP 11 - l + NEG IF DUP FS? THEN CF ELSE SF END END
  58.           DUP 25 ==
  59.             THEN l 6 - IF DUP 1 < THEN 64 + END 'l' STO END
  60.           DUP 35 ==
  61.             THEN l 6 + IF DUP 64 > THEN 64 - END 'l' STO END
  62.         END
  63.       UNTIL 51 == END
  64.       MENU
  65.   \>>
  66. \>>
  67.  
  68. Steffen Seitz
  69. seitz@informatik.uni-tuebingen.de
  70.  
  71.  
  72.